home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / FLOPBAC.SC < prev    next >
Text File  |  1992-03-15  |  3KB  |  88 lines
  1. ;----------------------FLOPBAC.SC
  2. ;------------SET UP BACK UP OPTION
  3. ;-------------------SET UP MENU LOOP
  4. CHOICE = " "
  5. WHILE CHOICE <> "EXIT"
  6.       ;----------------SHOW OPTION MENU.
  7.       SHOWMENU
  8.           "DRIVE A:" : "BACK UP FILES TO FLOPPY DISK DRIVE A:",
  9.           "DRIVE B:" : "BACK UP FILES TO FLOPPY DISK DRIVE B:",
  10.           "FORMAT A:": "FORMAT FLOPPY IN DRIVE A: (HD ONLY)",
  11.           "FORMAT B:": "FORMAT FLOPPY IN DRIVE B: (HD ONLY)",
  12.           "NEW DISK - A:" : "CREATE A NEW BACK-UP FLOPPY IN DRIVE A:",
  13.           "NEW DISK - B:" : "CREATE A NEW BACK-UP FLOPPY IN DRIVE B:",
  14.           "TIME" : "CHANGE SYTEM TIME",
  15.           "DATE" : "CHANGE SYSTEM DATE",
  16.           "EXIT" : "RETURN TO MAIN MEMU "
  17.       TO CHOICE
  18.       ;------------------PLAY SCRIPT OF CHOICE.
  19.       SWITCH
  20.          CASE CHOICE = "DRIVE A:" :
  21.  
  22.                        STYLE ATTRIBUTE 142
  23.                        CLEAR
  24.                        @ 12,12
  25.                        ?? "INSERT BACK UP DISK IN DRIVE A: "
  26.                        SLEEP 5000
  27.                        CLEARALL
  28.                        CLEAR
  29.                        IF NOT DRIVESTATUS("A") THEN
  30.                         CLEAR
  31.                         @ 12,12 ?? "YOUR FLOPPY DRIVE A: IS NOT READY !!"
  32.                         SLEEP 3000
  33.                         PLAY "FLOPBAC"
  34.                         ELSE
  35.                         ;MENU{TOOLS}{MORE}{TODOS} BACKUP
  36.                         RUN BIG "PKZIP -F a:FLOPPY"
  37.                         ENDIF
  38.                        CLEAR
  39.                        @ 12,24
  40.                        ?? "RETURNING TO MAIN MENU..."
  41.                        SLEEP 1500
  42.                        STYLE
  43.                        PLAY "FLOPPY"
  44.  
  45.          CASE CHOICE = "DRIVE B:" :
  46.                         STYLE ATTRIBUTE 142
  47.                         CLEAR
  48.                         @ 12,12
  49.                         ?? "INSERT BACK UP DISK IN DRIVE B "
  50.                         SLEEP 5000
  51.                         CLEARALL
  52.                         CLEAR
  53.                         IF NOT DRIVESTATUS("B") THEN
  54.                         CLEAR
  55.                         @12,12 ?? "YOUR DRIVE B: IS NOT READY !!"
  56.                         SLEEP 3000
  57.                         PLAY "FLOPBAC"
  58.                         ELSE
  59.                         RUN BIG "PKZIP -F B:FLOPPY"
  60.                         ENDIF
  61.                         CLEAR
  62.                         STYLE ATTRIBUTE 142
  63.                         @ 12,24
  64.                         ?? "RETURNING TO MAIN MENU..."
  65.                         SLEEP 1500
  66.                         STYLE
  67.                         PLAY "FLOPPY"
  68.             CASE CHOICE = "FORMAT A:" :
  69.                         RUN BIG "FORMAT A:"
  70.             CASE CHOICE = "FORMAT B:" :
  71.                         RUN BIG "FORMAT B:"
  72.             CASE CHOICE = "NEW DISK - A:" :
  73.                         RUN BIG "COPY FLOPPY.ZIP A:"
  74.             CASE CHOICE = "NEW DISK - B:" :
  75.                         RUN BIG "COPY FLOPPY.ZIP B:"
  76.             CASE CHOICE = "TIME" :
  77.                         RUN BIG "TIME"
  78.             CASE CHOICE = "DATE" :
  79.                         RUN BIG "DATE"
  80.      ENDSWITCH
  81. ENDWHILE
  82. ;------------------EXIT
  83. CLEAR
  84. STYLE REVERSE
  85. @ 12,24
  86. ?? "RETURNING TO MAIN MENU..."
  87. PLAY "FLOPPY"
  88.